www.gusucode.com > 良精ASP微博管理系统 V1.0 > 良精ASP微博管理系统 V1.0\code\admin\src.asp
<!--#include file="../Include/CheckLogin.asp"--> <!--#include file="../Include/liangconn.asp"--> <!--#include file="../Include/Function.asp"--> <% sub showpage(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit) dim n, i,strTemp,strUrl if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if strTemp= "<table align='center' class='font_3'><tr><td>" if ShowTotal=true then strTemp=strTemp & "共 <b>" & totalnumber & "</b> " & strUnit & " " end if strUrl=JoinChar(sfilename) if CurrentPage<2 then strTemp=strTemp & "首页 上一页 " else strTemp=strTemp & "<a href='" & strUrl & "page=1'>首页</a> " strTemp=strTemp & "<a href='" & strUrl & "page=" & (CurrentPage-1) & "'>上一页</a> " end if if n-currentpage<1 then strTemp=strTemp & "下一页 尾页" else strTemp=strTemp & "<a href='" & strUrl & "page=" & (CurrentPage+1) & "'>下一页</a> " strTemp=strTemp & "<a href='" & strUrl & "page=" & n & "'>尾页</a>" end if strTemp=strTemp & " 页次:<strong><font color=red>" & CurrentPage & "</font>/" & n & "</strong>页 " strTemp=strTemp & " <b>" & maxperpage & "</b>" & strUnit & "/页" if ShowAllPages=True then strTemp=strTemp & " 转到:<select class='input' name='page' size='1' onchange=""javascript:window.location='" & strUrl & "page=" & "'+this.options[this.selectedIndex].value;"">" for i = 1 to n strTemp=strTemp & "<option value='" & i & "'" if cint(CurrentPage)=cint(i) then strTemp=strTemp & " selected " strTemp=strTemp & ">第" & i & "页</option>" next strTemp=strTemp & "</select>" end if strTemp=strTemp & "</td></tr></table>" response.write strTemp end sub function JoinChar(strUrl) '分页附属函数 if strUrl="" then JoinChar="" exit function end if if InStr(strUrl,"?")<len(strUrl) then if InStr(strUrl,"?")>1 then if InStr(strUrl,"&")<len(strUrl) then JoinChar=strUrl & "&" else JoinChar=strUrl end if else JoinChar=strUrl & "?" end if else JoinChar=strUrl end if end function action = request("action") Msg_ID = Request("SrcTag_id") havving = Request("havving") a = havving dim action,id dim totalpage,maxperpage,totalrecords,i,currentpage response.expires = 0 currentpage = request("page") if currentpage = "" then currentpage=1 end if maxperpage = 25 totalrecords = 0 totalpage = 1 Set Rs = Server.CreateObject("ADODB.Recordset") if action = "del" then Sql = "Delete From Liangjing_SrcTags Where SrcTag_id="&Msg_ID Conn.execute(Sql) Response.Redirect("src.asp") end if %> <script language="javascript"> <!-- function frm_onsubmit(){ return true; } function isDel(id){ if(confirm("您确定要删除此消息吗?")){ location.href="src.asp?Action=del&SrcTag_id="+id+"&link_type2=<%=link_type2%>"; } } --> </script> <link href="images/Admin.css" rel="stylesheet" type="text/css"> <table width="99%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <form name="frmselect" action="src.asp" method="post"> <td height="26" bgcolor="#EAEAEA"> 标题: <input type="text" name="havving" value="<%=havving%>" size="45"> <input type="submit" name="Submit" value="搜索"> <input type="button" name="button" value="全部" onClick="javascript:location.href='src.asp';"> </td> </form> </tr> </table> <br> <table width="99%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td valign="top"> <table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC"> <tr bgcolor="#EAEAEA"> <td height="25" align="center">编号</td> <td align="center">标签标题</td> <td align="center">IP</td> <td align="center">操作</td> </tr> <% Set Rs = Server.CreateObject("Adodb.recordset") sql = "SELECT * From Liangjing_SrcTags Where 1=1" if havving <> "" then sql = sql & " and SrcTag_name like '%" & havving & "%'" end if sql = sql & " order by SrcTag_id" Rs.open Sql,conn,1,2 if not Rs.eof then rs.pagesize = maxperpage rs.absolutepage = currentpage totalpage = rs.pagecount totalrecords = rs.recordcount end if j = 0 While not rs.eof and j < maxperpage j = j + 1 %> <tr<%= Tr_MouseOver %> bgcolor="#FFFFFF"> <td height="25" align="center"><%=Rs("SrcTag_id")%></td> <td align="center"><%= Rs("SrcTag_name") %></td> <td align="center"> <%=rs("SrcTag_IP")%></td> <td align="center"> <a href="javascript:isDel(<%=Rs("SrcTag_id")%>);">删除</a> </td> </tr> <% Rs.MoveNext Wend %> </table> <br> <table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC"> <tr> <td width="100%" height="23" bgcolor="#EAEAEA" align="right"> <% Call showpage("src.asp?havving="&a,totalrecords,maxperpage,true,true,"篇文章") %> </td> </tr> </table> </td> </tr> <tr> <td height="22"> </td> </tr> </table> <% Set Rs = Nothing Set Conn = Nothing %>